home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / install.dxr / Internal_424.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  735 b   |  19 lines

  1. on InitCopy
  2.   global gFileObj, gFileList, gFileToCopy, gSrcPathList, gDestPathList, gSpaceNeeded, gBytes, gPrevBytes
  3.   set gFileToCopy to 1
  4.   set sourcepath to getAt(gSrcPathList, gFileToCopy)
  5.   set destPath to getAt(gDestPathList, gFileToCopy)
  6.   set gSpaceNeeded to 0
  7.   set K to count(gFileList)
  8.   repeat with n = 1 to K
  9.     set m to gMiscObj(mInsureFolder, getAt(gDestPathList, n))
  10.     set sp to getAt(gSrcPathList, n) & getAt(gFileList, n)
  11.     set gSpaceNeeded to gSpaceNeeded + gFileObj(mFsMacFileSize, sp)
  12.   end repeat
  13.   set gBytes to 0
  14.   set gPrevBytes to 0
  15.   set srcFile to sourcepath & getAt(gFileList, gFileToCopy)
  16.   set DestFile to destPath & GetDestFileName(getAt(gFileList, gFileToCopy))
  17.   StartCopy(srcFile, DestFile)
  18. end
  19.